inherited formOdontoCadProcedimento: TformOdontoCadProcedimento
  Caption = 'Cadastro de Procedimento'
  ClientHeight = 425
  ClientWidth = 696
  ExplicitWidth = 712
  ExplicitHeight = 463
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TPageControl
    Width = 696
    Height = 361
    ActivePage = tbsficha
    ExplicitWidth = 696
    ExplicitHeight = 361
    inherited tbsGrid: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 688
      ExplicitHeight = 351
      inherited dbgConsulta: TDBGrid
        Top = 101
        Width = 688
        Height = 250
        DataSource = dsProcedimento
        Columns = <
          item
            Expanded = False
            FieldName = 'Pro_Cd'
            Title.Caption = 'C'#243'digo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pro_Versao'
            Title.Caption = 'Vers'#227'o'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pro_Ds'
            Title.Caption = 'Descri'#231#227'o'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pro_Valor'
            Title.Caption = 'Valor'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pro_Status'
            Title.Caption = 'Status'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pro_TipoPro'
            Title.Caption = 'Tipo'
            Visible = True
          end>
      end
      inherited pnlFiltro: TPanel
        Width = 688
        Height = 101
        ExplicitWidth = 688
        ExplicitHeight = 101
        object OdontoLabel1: TOdontoLabel
          Left = 8
          Top = 8
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object OdontoLabel2: TOdontoLabel
          Left = 144
          Top = 8
          Width = 46
          Height = 13
          Caption = 'Descri'#231#227'o'
        end
        object OdontoLabel3: TOdontoLabel
          Left = 8
          Top = 48
          Width = 88
          Height = 13
          Caption = 'Tipo Procedimento'
        end
        object oeCodigo: TOdontoEdit
          Left = 8
          Top = 24
          Width = 121
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 0
          CorFoco = 15461355
        end
        object oedDescricao: TOdontoEdit
          Left = 144
          Top = 24
          Width = 375
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 1
          CorFoco = 15461355
        end
        object rgStatus: TRadioGroup
          Left = 544
          Top = 8
          Width = 123
          Height = 76
          Caption = 'Status'
          ItemIndex = 0
          Items.Strings = (
            'Ambos'
            'Ativos'
            'Inativos')
          TabOrder = 2
        end
        object cbTodosTipo: TCheckBox
          Left = 144
          Top = 64
          Width = 50
          Height = 17
          Caption = 'Todos'
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
        object dblcbTipo: TDBLookupOdontoEdit
          Left = 8
          Top = 64
          Width = 121
          Height = 19
          ListField = 'TPro_Descri'
          ListSource = dsTipoProcedimento
          TabOrder = 4
          CorFoco = 15461355
        end
      end
    end
    inherited tbsficha: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 688
      ExplicitHeight = 351
      object Label1: TLabel
        Left = 16
        Top = 72
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
      end
      object Label2: TLabel
        Left = 160
        Top = 72
        Width = 46
        Height = 13
        Caption = 'Descri'#231#227'o'
      end
      object Label3: TLabel
        Left = 16
        Top = 128
        Width = 24
        Height = 13
        Caption = 'Valor'
      end
      object Label4: TLabel
        Left = 160
        Top = 128
        Width = 88
        Height = 13
        Caption = 'Tipo Procedimento'
      end
      object OdontoLabel4: TOdontoLabel
        Left = 16
        Top = 16
        Width = 33
        Height = 13
        Caption = 'Vers'#227'o'
      end
      object dbeValor: TDBEdit
        Left = 16
        Top = 144
        Width = 121
        Height = 21
        DataField = 'Pro_Valor'
        DataSource = dsProcedimento
        TabOrder = 3
        OnExit = dbeValorExit
      end
      object dblVersao: TDBLookupComboBox
        Left = 16
        Top = 32
        Width = 181
        Height = 21
        DataField = 'Pro_Versao'
        DataSource = dsProcedimento
        KeyField = 'Ver_Cd'
        ListField = 'Ver_Cd'
        ListSource = dsVersaoProcedimento
        TabOrder = 0
      end
      object oedDescProcedimento: TDBOdontoEdit
        Left = 160
        Top = 88
        Width = 395
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Pro_Ds'
        DataSource = dsProcedimento
        TabOrder = 2
        CorFoco = 15461355
      end
      object oedCodigo: TDBOdontoEdit
        Left = 16
        Top = 88
        Width = 121
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Pro_Cd'
        DataSource = dsProcedimento
        TabOrder = 1
        CorFoco = 15461355
      end
      object dblcbTipoProcedimento: TDBLookupOdontoEdit
        Left = 160
        Top = 144
        Width = 241
        Height = 21
        DataField = 'Pro_TipoPro'
        DataSource = dsProcedimento
        KeyField = 'TPro_Codigo'
        ListField = 'TPro_Descri'
        ListSource = dsTipoProcedimento
        TabOrder = 4
        CorFoco = 15461355
      end
      object DBOdontoCheckBox1: TDBOdontoCheckBox
        Left = 576
        Top = 90
        Width = 49
        Height = 17
        Caption = 'Ativo'
        DataField = 'Pro_Status'
        DataSource = dsProcedimento
        TabOrder = 5
        ValueChecked = 'A'
        ValueUnchecked = 'I'
      end
    end
  end
  inherited pnlBotoes: TPanel
    Width = 696
    ExplicitWidth = 696
    inherited imgBotoes: TImage
      Width = 694
      ExplicitWidth = 694
    end
  end
  inherited statCadastro: TStatusBar
    Top = 400
    Width = 696
    ExplicitTop = 400
    ExplicitWidth = 696
  end
  inherited pmOrdenar: TPopupMenu
    Left = 152
    Top = 248
  end
  object qProcedimento: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Pro_Cd,'
      '             Pro_Versao,'
      '            Pro_Ds,'
      '             Pro_Valor,'
      '             Pro_Status,'
      '             Pro_TipoPro'
      'FROM Procedimento')
    Left = 88
    Top = 280
    object qProcedimentoPro_Cd: TStringField
      FieldName = 'Pro_Cd'
      FixedChar = True
      Size = 8
    end
    object qProcedimentoPro_Versao: TStringField
      FieldName = 'Pro_Versao'
      FixedChar = True
      Size = 7
    end
    object qProcedimentoPro_Ds: TStringField
      FieldName = 'Pro_Ds'
      Size = 100
    end
    object qProcedimentoPro_Valor: TBCDField
      FieldName = 'Pro_Valor'
      DisplayFormat = ',0.00'
      Precision = 19
    end
    object qProcedimentoPro_Status: TStringField
      FieldName = 'Pro_Status'
      FixedChar = True
      Size = 1
    end
    object qProcedimentoPro_TipoPro: TIntegerField
      FieldName = 'Pro_TipoPro'
    end
  end
  object qTipoProcedimento: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'SELECT TPro_Codigo,'
      '             TPro_Descri '
      'FROM TipoProcedimento')
    Left = 56
    Top = 280
    object qTipoProcedimentoTPro_Codigo: TAutoIncField
      FieldName = 'TPro_Codigo'
      ReadOnly = True
    end
    object qTipoProcedimentoTPro_Descri: TStringField
      FieldName = 'TPro_Descri'
    end
  end
  object dsProcedimento: TDataSource
    DataSet = qProcedimento
    Left = 88
    Top = 248
  end
  object dsTipoProcedimento: TDataSource
    DataSet = qTipoProcedimento
    Left = 56
    Top = 248
  end
  object dsVersaoProcedimento: TDataSource
    DataSet = qVersaoProcedimento
    Left = 120
    Top = 248
  end
  object qVersaoProcedimento: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'SELECT Ver_Cd,'
      '             Ver_Ds '
      'FROM VersaoProcedimento')
    Left = 120
    Top = 280
    object qVersaoProcedimentoVer_Cd: TStringField
      FieldName = 'Ver_Cd'
      FixedChar = True
      Size = 7
    end
    object qVersaoProcedimentoVer_Ds: TStringField
      FieldName = 'Ver_Ds'
      Size = 30
    end
  end
end
